home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 4
/
Digital_Talk_04_1993-12-10_Digital_Talk_de_Side_B.d64
/
4. hsm-cyrus
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
57 lines
10 poke53280,11:poke53281,0:poke646,13:print"[147] ford prefect's highscoremaker"
20 print" written 1993 public domain software"
30 print"[159] spiel : [158]cyrus"
40 print"[154] highscore :"
50 print" [163][163][163][163][163][163][163][163][163][163][163]"
60 l$="hiscore of cyrus,p,r"
70 : open 1,8,2,l$
80 : get #1,no$,no$
90 : for x = 49152 to 49152+60
100 : get#1,by$
110 : if by$ =""then pokex,0:goto130
120 : poke x,asc(by$)
130 : next x
140 :close 1
150 :
160 : for l = 0 to 2
170 : for r = 0 to 19
180 : s=(peek(49152+l*20+r))
190 : ifs<32 thens=s+64
200 : ifs=64 then s=32
210 : ifs=205 then s=32
220 : s$= chr$(s)
230 : f$(l)=f$(l)+s$
240 : next r
250 : print f$(l)
260 : next l
270 :
280 print" welchen eintrag moechtest du aendern ?"
290 print"[159] 1 - 1st 2 - 2nd 3 - 3rd"
300 print" - run/stop zum beenden -"
310 geta:ifa=0then310
320 q=a-1:p=q*20:print"[156]max. 20 zeichen gesamtlaenge !![159]"
325 print" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
330 print" ";f$(q)
340 input"[145]";n$(q)
350 iflen(n$(q))>20thenprint"[145]";:goto330::::
360 forl=0to19:poke49152+p+l,peek(1024+23*40+2+l):nextl
370 print"[153] aenderungen werden gespeichert !"
380 open15,8,15,"s:hiscore of cyrus":close15
390 : l$="hiscore of cyrus,p,w"
400 : open 1,8,2,l$
410 : print#1,chr$(40);chr$(137);
420 : for l = 0 to 59
430 : print#1, chr$(peek(49152+l));
440 : next l
450 : close 1
460 : run
470 :
480 :
490 : ford prefects highscoremaker
500 : game : cyrus
510 :
520 : danny busch
530 : birkenallee 18
540 : 65549 limburg (germany)
550 : tel.: 06431/25866